home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 October / MACPOWER-1997-10.ISO.7z / MACPOWER-1997-10.ISO / AMUG / PROGRAMMING / Mac F2C 1.3.5.sit / Mac F2C 1.3.5 / Mac F2C Libraries / libF77 Sources / s_cat.c < prev    next >
C/C++ Source or Header  |  1995-01-28  |  408b  |  26 lines
  1. #include "f2c.h"
  2.  
  3. #ifdef KR_headers
  4. VOID s_cat(lp, rpp, rnp, np, ll) char *lp, *rpp[]; ftnlen rnp[], *np, ll;
  5. #else
  6. VOID s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll)
  7. #endif
  8. {
  9. ftnlen i, n, nc;
  10. char *f__rp;
  11.  
  12. n = *np;
  13. for(i = 0 ; i < n ; ++i)
  14.     {
  15.     nc = ll;
  16.     if(rnp[i] < nc)
  17.         nc = rnp[i];
  18.     ll -= nc;
  19.     f__rp = rpp[i];
  20.     while(--nc >= 0)
  21.         *lp++ = *f__rp++;
  22.     }
  23. while(--ll >= 0)
  24.     *lp++ = ' ';
  25. }
  26.